home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 65
/
64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_B.d64
/
bks.what 5.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
5KB
|
122 lines
0 af=28:gosub1000:rem version 7 - ganz stark verbessert
1 dima$(af):gosub200:open4,4:x$=""+chr$(13)+"
2 [152]4,"---------------------------------------
3 print#4,"basic kontroll system erklaerungen v7
4 [152]4,"---------------------------------------
5 print#4,"obige tabelle gibt auskunft ueber alle leichten und schweren fehler,
6 [152]4,"die im getesteten basic-programm aufgetreten sind.
7 print#4:print#4,"basic-programm : "n$
8 print#4,"testdatum : "d$
9 print#4,"version des testprogrammes: "v$
10 print#4:ifpeek(52999)then13
11 print#4,"der fehler nr. 2 (ueberfluessige leerzeichen im programmtext)
12 [152]4,"wurde nicht gelistet, da er zu haeufig auftrat.":[152]4
13 rq$[178]" runtime-konsequenzen"[170]x$
14 [141]100:[152]4,"erklaerung der fehler:
15 print#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print#4,"beispiel:
16 [152]4," 2720: 17[1] ueberfluessiger befehl
17 print#4," ^ ^ ^ ^"x$;
18 print#4," [221] [221] [221] [202] art des fehlers (pauschaltext)"x$;
19 print#4," [221] [221] [221]"x$;
20 print#4," [221] [221] [202] fehlergrad: 1 = leichter fehler ohne"rq$;
21 print#4," [221] [221] 2 = schwerer fehler, wird fehlermeldung"x$;
22 print#4," [221] [221] verursachen"x$;
23 print#4," [221] [221]"x$;
24 print#4," [221] [202] fehlercodenummer (siehe unten)"x$;
25 print#4," [221]"x$;
26 print#4," [202] basic programmzeilennummer
27 [152]4
28 [152]4,"verzeichnis der vorkommenden fehlercodes mit bedeutung:
30 print#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
40 [129]i[178]1[164]af:[139][194](53003[170]i)[178].[167]60
50 [152]4,a$(i)
60 [130]
80 [152]4:[152]4,"(c) nh-201187-arr rev7
99 close4:end
100 ifpeek(53000)then110
101 print#4,"der fehler nr. 8 (sprung auf rem- oder trennzeile)
102 [152]4,"wurde nicht gelistet, da er zu haeufig auftrat.":[152]4
110 [139][194](53002)[167]120
111 [152]4,"die fehler nr. 7 (goto -> struktur) und nr. 17 (then goto)
112 print#4,"wurden nicht gelistet, da sie zu haeufig auftraten.":print#4
120 ifpeek(53003)then130
121 print#4,"die fehler nr. 12, 13 und 14 wurden nicht gelistet.
122 [152]4
130 [142]
200 [129]i[178]1[164]af:b$[178]""
202 [135]a$:[139]a$[178]"@"[167]210
204 b$[178]b$[170]a$[170][199](13):[137]202
210 a$(i)[178][200](b$,[195](b$)[171]1):[130]:[142]
1000 [129]i[178]52992[164]52996:a$[178]a$[170][199]([194](i)):[130]:[139]a$[179][177]"nss88"[167]1100
1001 [139][194](53001)[178]123[167]1102
1002 [139][194](53001)[179][177]222[167]1100
1003 [129]i[178].[164]af[171]1:a[178]a[170][194](i[170]53004):[130]:[139]a[178].[167]1104
1004 [133]"loaddatum xx.xx.19xxcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";d$
1005 [133]"name programm xcmdcmdcmd";n$
1006 v$[178][199](48[170][194](52997))[170]"."[170][199](48[170][194](52998))
1007 [139]v$[179][177]"5.0"[167]1106
1008 [142]
1100 [153]"loadbitte erstellen sie erst eine liste mit dem bks (vers. >= 5.0)":[128]
1102 [153]"loadbitte unterbrechen sie das bks programm nicht !":[128]
1104 [153]"loaddas testprogramm enthielt keine fehler !":[128]
1106 [153]"loadfalsche versionsnummer !
2000 data1 = direkt nach der zeilennummer folgt ein nullbyte (dies wird zu list-
2002 data" schutzzwecken verwendet)",@
2004 data2 = im programmtext kommt ein ueberfluessiges leerzeichen vor,@
2006 data"3 = ein then, goto, list etc. befehl zeigt auf eine nicht existierende
2008 [131]" zeile",@
2010 [131]4 = die zeilennummer als parameter ist groesser als 63999,@
2012 [131]5 = die zeilennummer als parameter enthaelt falsche zeichen (beispiels-
2014 [131]" weise goto 4+6)",@
2016 [131]6 = eine basic zeile ist laenger als 255 zeichen,@
2018 [131]"7 = ein goto oder then befehl zeigt auf einen befehl wie return, goto,
2020 data" end usw., den man auch einfach anstelle des sprungbefehles haette
2022 [131]" setzen koennen",@
2024 [131]8 = ein sprungbefehl zeigt auf eine rem- oder trennzeile. dies kann zu
2026 [131]" problemen beim abtippen fuehren, wenn die angesprungene zeile weg-
2028 data" gelassen wird.",@
2030 data9 = eine basic zeile ist laenger als 255 zeichen,@
2032 data10= ein sprungbefehl zeigt auf sich selbst (z.b. 10 goto 10),@
2034 data11= der befehl 'cont' darf nicht im programmtext vorkommen,@
2036 data12= der befehl 'stop' sollte nicht im programmtext vorkommen,@
2038 data13= der befehl 'new' sollte nicht im programmtext vorkommen,@
2040 data14= der befehl 'let' sollte nicht im programmtext vorkommen,@
2042 data15= hinter einem rem-befehl steht ein geshiftetes l (listschutz),@
2044 data16= ein illegales token kommt im programmtext vor,@
2046 data"17= der befehl 'goto' sollte nicht direkt hinter 'then' stehen, einer
2048 [131]" von beiden genuegt",@
2050 [131]18= hinter einem befehl fehlt der parameter,@
2052 [131]19= hinter go fehlt to,@
2054 [131]"20= hinter goto, run etc. folgen weitere befehle, die niemals ausge-
2056 data" fuehrt werden",@
2058 data21= eine oder mehrere klammern zu viel oder zu wenig,@
2060 data22= das zeichen '^' zur potenzierung sollte vermieden werden,@
2062 data23= der befehl 'print#' wurde mit ?# abgekuerzt,@
2064 data24= falsche reihenfolge der basic-zeilen,@
2066 data25= ein falscher linkpointer kommt vor,@
2068 data26= on ohne legalen sprungbefehl,@
2070 data27= then ohne if,@
2072 data28= der pointer 45/46 zeigt nicht genau auf das ende des basic-pro-
2074 data" grammes",@
2100 :
2102 rem **********************
2103 rem * *
2104 rem * fragen ? *
2106 rem * nikolaus heusler *
2108 rem * zwengauerweg 18 *
2110 rem * 8000 muenchen 71 *
2112 rem * tel. 089/792940 *
2114 rem * *
2116 rem * revised 151287 /nh *
2117 rem * revised 070188 /nh *
2118 rem * *
2120 rem * (c)opyright *
2122 rem * nig software ser- *
2123 rem * vice (nss), *
2124 rem * nh-201187-arr *
2125 rem * *
2126 rem * released for 64'er *
2127 rem * leli-test (rs) *
2128 rem * *
2130 rem **********************